#! /usr/bin/perl -w
package Constants;
require Exporter;

our @ISA = qw(Exporter);
our @EXPORT = qw($TASK_INIT $TASK_READY $TASK_SCHEDULED $TASK_RUNNING $TASK_END $TASK_CANCELLED 
				$TASKSET_READY $TASKSET_SCHEDULED $TASKSET_RUNNING $TASKSET_END $TASKSET_CANCELLED
				$TASKSET_SEPERATOR $TASK_SEPERATOR $STATUS_TAG $COMMAND_TAG $SUCCESS $FAILURE
				$MSG_STATUS_TYPE $MSG_COMMAND_TYPE $MSG_UNKNOWN_TYPE);

our $VERSION = 1.00;

our ($TASK_INIT, $TASK_READY, $TASK_SCHEDULED, $TASK_RUNNING, $TASK_END, $TASK_CANCELLED) = (0, 1, 2, 3, 4, 5);

our ($TASKSET_READY, $TASKSET_SCHEDULED, $TASKSET_RUNNING, $TASKSET_END, $TASKSET_CANCELLED) = (0, 1, 2, 3, 4);

our ($TASKSET_SEPERATOR, $TASK_SEPERATOR) = (":", ",");

our ($STATUS_TAG, $COMMAND_TAG) = ("STATUS: ", "COMMAND: ");

our ($MSG_STATUS_TYPE, $MSG_COMMAND_TYPE, $MSG_UNKNOWN_TYPE) = (0, 1, 2);

our ($SUCCESS, $FAILURE) = (0, 1);

1;


